REM Flags: Flag 2 turned on when smoke filled room cleared
REM Flags: Flag 3 turned on when Biker "cleaned up"
REM Flags: Flag 4 Turned on when Biker following
REM Flags: Flag 5 Turned on when Gizzard is cooked
REM Flags: Flag 8 turned on when Lewd mode asked for
REM Flags: Flag 9 turned on if IN Lewd mode
REM Flags: Flag 7 turned on after first time in Biker's Back Room
REM Flags: Flag 10 turned on if GRANITE
REM Flags: Flag 11 turned on if GREASY
REM Flags: Flag 12 turned on if GRAPE
REM Flags: Flag 13 turned on if GERONOMO
REM Flags: Flag 6 turned on if in nasties room-stops Gizzard

COMMAND ANY
FlagON 10
 OR
FlagON 11
 OR
FlagON 12
 OR
FlagON 13
SubtractFromVariable 5 1
END_COMMAND

COMMAND NORTH
AtLocation 28
TurnFlagON 6
END_COMMAND

COMMAND NORTH
AtLocation 19
TurnFlagON 6
END_COMMAND

COMMAND SOUTH
AtLocation 19
TurnFlagOFF 6
END_COMMAND

COMMAND DOWN
AtLocation 28
TurnFlagOFF 6
END_COMMAND


COMMAND ANY
FlagON 10
 OR
FlagON 11
VariableEquals 5 0
TurnFlagOFF 10
TurnFlagOFF 11
TurnFlagOFF 12
TurnFlagOFF 13
PrintMessage 26
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagON 12
 OR
FlagON 13
VariableEquals 5 0
TurnFlagOFF 10
TurnFlagOFF 11
TurnFlagOFF 12
TurnFlagOFF 13
PrintMessage 26
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagON 10
VerbIsDirection
PrintMessage 20
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagON 11
VerbIsDirection
PrintMessage 21
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagON 12
VerbIsDirection
PrintMessage 22
DoneWithTurn
END_COMMAND

COMMAND ANY
FlagON 13
VerbIsDirection
PrintMessage 23
DoneWithTurn
END_COMMAND

COMMAND ANY
NOT AtLocation 38
FlagOFF 4
FlagOFF 5
FlagOFF 6
FlagOFF 10
FlagOFF 11
FlagOFF 12
FlagOFF 13
Chance 10
PrintMessage 24
END_COMMAND

COMMAND ANY
NOT AtLocation 38
FlagOFF 6
FlagOFF 4
FlagOFF 5
FlagOFF 10
FlagOFF 11
FlagOFF 12
FlagOFF 13
Chance 3
TurnFlagON 10
SetVariableTo 5 5
PrintMessage 30
DoneWithTurn
END_COMMAND

COMMAND ANY
NOT AtLocation 38
FlagOFF 4
FlagOFF 5
FlagOFF 6
FlagOFF 10
FlagOFF 11
FlagOFF 12
FlagOFF 13
Chance 3
TurnFlagON 11
SetVariableTo 5 5
PrintMessage 31
DoneWithTurn
END_COMMAND

COMMAND ANY
NOT AtLocation 38
FlagOFF 4
FlagOFF 5
FlagOFF 6
FlagOFF 10
FlagOFF 11
FlagOFF 12
FlagOFF 13
Chance 3
TurnFlagON 12
SetVariableTo 5 5
PrintMessage 32
DoneWithTurn
END_COMMAND

COMMAND ANY
NOT AtLocation 38
FlagOFF 4
FlagOFF 5
FlagOFF 6
FlagOFF 10
FlagOFF 11
FlagOFF 12
FlagOFF 13
Chance 3
TurnFlagON 13
SetVariableTo 5 5
PrintMessage 33
DoneWithTurn
END_COMMAND

COMMAND TAME
TurnFlagOFF 8
TurnFlagOFF 9
PrintMessage 18
DoneWithTurn
END_COMMAND

COMMAND DEBUG
ToggleFlag 0
DoneWithTurn
END_COMMAND

COMMAND LEWD
FlagON 9
PrintMessage 8
DoneWithTurn
END_COMMAND

COMMAND LEWD
TurnFlagON 8
PrintMessage 9
DoneWithTurn
END_COMMAND

COMMAND DRAFT BEER
FlagON 8
PrintMessage 10 (*OK, you're in Lewd Mode *)
TurnFlagON 9
TurnFlagOFF 8
DoneWithTurn
END_COMMAND

COMMAND EAST
AtLocation 23   (* to smoke-filled room *)
FlagON 2
PrintMessage 3
END_COMMAND

COMMAND SOUTH
AtLocation 33
FlagON 2         (*has ventilated*)
PrintMessage 3
END_COMMAND

COMMAND SOUTH
AtLocation 33
FlagOFF 2         (*has NOT ventilated*)
PrintMessage 2
END_COMMAND

COMMAND SOUTHWEST
AtLocation 37
FlagON 2         (*has ventilated*)
PrintMessage 3
END_COMMAND

COMMAND SOUTHWEST
AtLocation 37
FlagOFF 2         (*has NOT ventilated*)
PrintMessage 2
END_COMMAND

COMMAND NORTHWEST
AtLocation 36
FlagON 2         (*has ventilated*)
PrintMessage 3
END_COMMAND

COMMAND NORTHWEST
AtLocation 36
FlagOFF 2         (*has NOT ventilated*)
PrintMessage 2
END_COMMAND

COMMAND NORTH
AtLocation 35
FlagON 2         (*has ventilated*)
PrintMessage 3
END_COMMAND

COMMAND NORTH
AtLocation 35
FlagOFF 2         (*has NOT ventilated*)
PrintMessage 2
END_COMMAND

COMMAND NORTHEAST
AtLocation 34
FlagON 2         (*has ventilated*)
PrintMessage 3
END_COMMAND

COMMAND NORTHEAST
AtLocation 34
FlagOFF 2         (*has NOT ventilated*)
PrintMessage 2
END_COMMAND

COMMAND SOUTHEAST
AtLocation 32
FlagON 2         (*has ventilated*)
PrintMessage 3
END_COMMAND

COMMAND SOUTHEAST
AtLocation 32
FlagOFF 2         (*has NOT ventilated*)
PrintMessage 2
END_COMMAND


COMMAND WEST
AtLocation 38
FlagOFF 2    (*has NOT ventilated *)
GoToRoom 11
PrintMessage 2
DoneWithTurn
END_COMMAND

COMMAND WEST
AtLocation 38
FlagON 2    (*has ventilated *)
GoToRoom 11
PrintMessage 3
DoneWithTurn
END_COMMAND

COMMAND NORTH
AtLocation 38
GoToRoom 37
DoneWithTurn
END_COMMAND

COMMAND PUT GASOLINE IN CAN
AtLocation 13
IsCarrying 203
SwapLocations 202 203
DoneWithTurn
END_COMMAND

COMMAND PUT GASOLINE IN ESCALATOR
AtLocation 27
IsCarrying 202
InRoom 205  (*off escalator*)
ChangePassageway 9 28
SwapLocations 205 206
SendToRoom 202 0
PrintMessage 1 (*as you fill the tank, the escalator ... *)
PlusScore 10
DoneWithTurn
END_COMMAND

COMMAND FILL ANY
ReDirectTo PUT GASOLINE IN $NOUN$
END_COMMAND

COMMAND ANY
AtLocation 11
FlagOFF 2
VerbIsDirection
GoToRandomRoom 32 38
DoneWithTurn
END_COMMAND

COMMAND FLIP SWITCH
AtLocation 29
TurnFlagON 2
DoneWithTurn
END_COMMAND

COMMAND PULL SWITCH
ReDirectTo FLIP SWITCH
END_COMMAND

COMMAND PUSH SWITCH
ReDirectTo FLIP SWITCH
END_COMMAND

COMMAND TURN SWITCH
ReDirectTo FLIP SWITCH
END_COMMAND

COMMAND WEST
AtLocation 15
FlagON 3
GoToRoom 17
LookAtRoom
DoneWithTurn
END_COMMAND

COMMAND ANY
AtLocation 16
FlagOFF 3
FlagON 4  (*biker following *)
PrintMessage 4
TurnFlagON 3
TurnFlagOFF 4
RemoveFromGroup 301
SendToRoom 301 0 (*get rid of biker *)
PlusScore 10
GoToRoom 17
DoneWithTurn
END_COMMAND

COMMAND ANY
AtLocation 21 (*biker's club *)
FlagOFF 4
FlagOFF 3
TurnFlagON 4
AddToGroup 301 (*biker follows *)
PrintMessage 5
END_COMMAND

COMMAND EAST
AtLocation 21 (*Biker's club *)
FlagON 3 (*Got rid of Biker *)
FlagOFF 7 (*only the first time *)
FlagON 9 (*In lewd Mode *)
PrintMessage 13 (*naked girl in room *)
GoToRoom 20
TurnFlagOn 7 (*only the first time in room *)
DoneWithTurn
END_COMMAND

COMMAND EAST
AtLocation 21 (*Biker's club *)
FlagON 3 (*got rid of biker *)
FlagOFF 7 (*only the first time in room *)
FlagOFF 9 (*In tame mode *)
PrintMessage 14 (*sobbing girl in room *)
GoToRoom 20
TurnFlagON 7 (*only the first time in room *)
DoneWithTurn
END_COMMAND


COMMAND SOUTH
AtLocation 21
GoToRoom 19
DoneWithTurn
END_COMMAND

COMMAND SOUTH
AtLocation 19
GoToRoom 15
DoneWithTurn
END_COMMAND

COMMAND WEST
AtLocation 15
GoToRoom 16
DoneWithTurn
END_COMMAND

COMMAND POLISH ROBOT
AtLocation 29
Present 209
Present 302
SendToRoom 302 0
PrintMessage 6 (* you polish and polish the robot... *)
PlusScore 10
DoneWithTurn
END_COMMAND

COMMAND ANY
AtLocation 20
Present 303
FlagON 9 (*in LEWD MODE *)
GoToRoom 6
PrintMessage 7 (* the girl tosses you over her shoulder and ... *)
SendToRoom 210 0 (*get rid of cycle *)
SendToRoom 303 0 (* so long, Honey, it was a fun ride *)
GetIt 211
DoneWithTurn
END_COMMAND

COMMAND ANY
AtLocation 20
Present 303
FlagOFF 9 (*In TAME Mode *)
GoToRoom 6
PrintMessage 12
SendToRoom 210 0 (*Get rid of Cycle *)
SendToRoom 303 0 (*Girl leaves to go to her worried parents *)
GetIt 211
DoneWithTurn
END_COMMAND

COMMAND LIGHT DYNAMITE
IsCarrying 213
IsCarrying 214
PrintMessage 15
KillPlayer
DoneWithTurn
END_COMMAND

COMMAND PLUG DAM
IsCarrying 213
AtLocation 18
PrintMessage 16
SendToRoom 213 0
SwapLocations 215 216
ChangePassageway 4 40
DoneWithTurn
END_COMMAND

COMMAND PUT STICK IN DAM
ReDirectTo PLUG DAM
END_COMMAND

COMMAND WEST
AtLocation 40
IsWearing 211
GoToRoom 41
DoneWithTurn
END_COMMAND

COMMAND CAJUN FOOD
AtLocation 36 (* Riddle Room *)
Present 218
SwapLocations 218 219
ChangePassageway 3 27
PrintMessage 17 (*the door opens *)
DoneWithTurn
END_COMMAND

COMMAND GIVE SKILLET TO COOK
AtLocation 35
IsCarrying 217
SendToRoom 217 0
FlagOFF 5
TurnFlagON 5
PrintMessage 19 (*she quickly captures and fries the Gizzard *)
SendToRoom 305 0
PlusScore 20
DoneWithTurn
END_COMMAND

COMMAND GIVE DEBUGGER PROGRAM TO PROGRAMMER
AtLocation 51
IsCarrying 201
SendToRoom 201 0
PlusScore 20
SwapLocations 221 222
ChangePassageway 2 52
DoneWithTurn
END_COMMAND
